home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
serien
/
purity
/
nr.10
/
demo
/
sparx.i
/
.spark12b.i
< prev
next >
Wrap
Text File
|
1995-04-19
|
725b
|
44 lines
Procedure Spark12B(colreg : Short);
Const
max4lines = 6;
Type
Sp1lines = Array[1..max4lines] of line;
Sp1LinesPtr = ^Sp1Lines;
Var
aln : Sp1LinesPtr;
cnt1,
actualline : Short;
Begin
New(aln);
ActualLine := 1;
cnt1 := 470;
Repeat
EraseLine( Adr(aln^[actualline]) );
With aln^[actualline] do begin
x1 := 210 + XSin^[cnt1]; { +- max.100 }
y1 := 210;
x2 := 210 + XSin^[cnt1]; { +- max.100 }
y2 := 255;
end;
Inc( cnt1 );
if cnt1>627 then cnt1:= cnt1-628;
DrawLine( Adr( aln^[actualline] ), colreg );
Inc( actualline );
if actualline > max4lines then actualline := 1;
Until LeftMouseButton;
Ciao;
SetSColors( ADR(Def_Colors) );
End;